Declare Function GetCursorPos Lib "user32" (lpPoint As PointAPI) As Long
Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As Any, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Integer, ByVal x As Integer, ByVal y As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal hSrcDC As Integer, ByVal XSrc As Integer, ByVal YSrc As Integer, ByVal dwRop As Long) As Integer
Declare Sub ReleaseCapture Lib "user32" ()
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Long) As Long
Declare Function SetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As Long
Const WarpStarSpeed = 100
Type PointAPI
x As Long
y As Long
End Type
Type Stars
SpeedY As Integer
SpeedX As Integer
StarX As Integer
StarY As Integer
StarColor As Byte
End Type
Public SpecialEffectX As Integer
Public SpecialEffectY As Integer
Public Star() As Stars 'Array of Stars Type
Public StarCount As Integer ' holds the amount of stars in array
Public Status As String 'holds Name of the current effect
Private Function ConvertIPAddressToLong(strAddress As String) As Long
'For Ping: It changes the IP Address so it can be used to send th